Die Speccy' 97/Die Speccy' 97.iso/amiga_system/the_aminet/util/app/appassign30.lha/AppAssign30/Install_Fran軋is

Text File | 1995-09-12 | 7KB | 312 lines

;
; $VER: Installation de AppAssign v3.0 (12.9.1995)
;
;       Scripte Installer pour AppAssign.
;

        (set UserLevel.old @user-level)

; Initialisation des messages.

        (set Language 16)

        (set #WrongKickStart "\nAppAssign ne fonctionne qu'avec un KickStart >= α 2.04.")



; S'assurer que l'on utilise un KickStart >= α 2.04.

        (if (< (/ (getversion) 65536) 37)
          (abort #WrongKickStart)
        )


(set LangueHelp "Choisisser dans quelle langue vous voulez la documentation.")

(set IconHelp "Choisissez dans quel format vous-voulez vos ic⌠nes:\n\n- 4 couleurs:          Ic⌠nes standards\n- 8 couleurs MagicWB : Standard MagicWB\n- NewIcon :            Standard NewIcon")
(set bguiHelp "La bgui.library est une library facilitant la crΘation d'interface et offrant de plus belle interface\n\nbgui.library   (C) 1993-1995 Jan van den Baard")
(set Refresh  "Mode de refresh de la fenΩtre")
(set Aspect   "Choix de l'epaisseur des bordures:\n\n- AutoAspect:  Respecte le ration Θcran\n- Thin:        Force le mode fin\n- Standard:    Comme le systΦme")
(set Frame    "Choix du look des boutons")
(set WindowPos  "De quel faτon la fenΩtre doit s'ouvrir ?")
(set NewLook    "Le mode NewLook Permet d'avoir en blanc la barre scroller de la listview")

;
; RΘpertoire de destination
; *************************
;

(set Path.source (pathonly @icon) )

(set  Path.dest
        (askdir
                (prompt "\nSΘlectionner ou crΘer un rΘpertoire dans lequel vous voulez installer AppAssign.\n")
                (help @askdir-help)
                ;(default "RAM:")
                (default "Sys:Tools/Commodities")
        )
)


; Copie de l'executable
; **********************
(copyfiles
        (prompt "Copie de AppAssign")
        (help @copyfiles-help)
        (source Path.source)
        (dest Path.dest)
        (choices "AppAssign" "AppAssign.info")
)


; Copie du catalogs Franτais
; **************************
(set CatPath (tackon Path.dest "catalogs"))
(makedir CatPath)
(set CatPath (tackon Path.dest "catalogs/franτais"))
(makedir CatPath)

(copyfiles
    (prompt "Copie du catalogs de AppAssign")
    (source Path.source)
    (dest CatPath)
    (choices "catalogs/franτais/AppAssign.catalog")
)


; Copie de la documentation
; *************************
(set Doc (askchoice
            (prompt "Documentation de AppAssign")
            (choices "Franτaise" "Anglaise" )
            (help LangueHelp)
            (default 0)

    )
)


    (if (= Doc 0)
        (copyfiles
            (source "AppAssign_FR.guide")
            (dest Path.dest)
            (newname "AppAssign.guide")
            (infos)
        )
    )

    (if (= Doc 1)
        (copyfiles
            (source "AppAssign_ENG.guide")
            (dest Path.dest)
            (newname "AppAssign.guide")
            (infos)
        )
    )



; On copie les ic⌠nes
; *******************
(set Icon (askchoice
            (prompt "Quel type d'ic⌠ne voulez-vous utiliser ?")
            (choices "4 couleurs" "MagicWB" "NewIcon")
            (help IconHelp)
    )
)

    ; MagicWB ?
    ; *********
    (if (= Icon 1)
        (
        (copyfiles
            (source "Icons/EXE_MagicWb.info")
            (dest Path.dest)
            (newname "AppAssign.info")
        )

        (copyfiles
            (source "Icons/Guide_MagicWb.info")
            (dest Path.dest)
            (newname "AppAssign.guide.info")
        )
        )
    )

    ; NewIcon ?
    ; *********
    (if (= Icon 2)
        (
        (copyfiles
            (source "Icons/EXE_NewIcon.info")
            (dest Path.dest)
            (newname "AppAssign.info")
        )

        (copyfiles
            (source "Icons/Guide_NewIcon.info")
            (dest Path.dest)
            (newname "AppAssign.guide.info")
        )
        )
    )


; Copie de la bgui.library
; ************************
(copylib
    (prompt "Copie de la bgui.library")
    (source "libs/bgui.library")
    (dest "Libs:")
    (help bguiHelp)
    (confirm)
)

; Parametrage du programme
; ************************

; On prend le chemin de destination et le nom
(set DestName (tackon Path.dest "AppAssign"))


; ***********
; * REFRESH *
; ***********
(set Icon (askchoice
            (prompt "Quel type de refresh vous voulez pour la fenΩtre ?")
            (choices "SmartRefresh" "SimpleRefresh")
            (help Refresh)
    )
)

    (if (= Icon 0)
        (tooltype
            (settooltype "SMARTREFRESH" "YES")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "SMARTREFRESH" "NO" )
            (dest DestName)
        )
    )

; **********
; * ASPECT *
; **********
(Set Icon (askchoice
            (prompt "Quel aspect voulez-vous pour l'interface ?")
            (choices "Automatique (en fonction de l'Θcran)" "Fin" "Standard")
            (help Aspect)
        )
)
    (if (= Icon 0)
        (tooltype
            (settooltype "ASPECT" "AUTO")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "ASPECT" "THIN")
            (dest DestName)
        )
    )

    (if (= Icon 2)
        (tooltype
            (settooltype "ASPECT" "STANDARD")
            (dest DestName)
        )
    )

; *********
; * FRAME *
; *********
(Set Icon (askchoice
            (prompt "Quel type de 'FRAME' voulez-vous pour l'interface ?")
            (choices "Normal" "XEN")
            (help Frame)
        )
)
    (if (= Icon 0)
        (tooltype
            (settooltype "FRAME" "STANDARD")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "FRAME" "XEN")
            (dest DestName)
        )
    )


; *******************
; * NEWLOOKSCROLLER *
; *******************
(Set Icon (askchoice
            (prompt "Utiliser le mode NewLook pour le scroller de la ListView ?")
            (choices "Oui" "Non")
            (default 1)
            (help NewLook)
        )
)
    (if (= Icon 0)
        (tooltype
            (settooltype "NEWLOOKSCROLLER" "YES")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "NEWLOOKSCROLLER" "NO")
            (dest DestName)
        )
    )


; ******************
; * WINDOWPOSITION *
; ******************
(Set Icon (askchoice
            (prompt "O∙ voulez-vous que l'interface s'ouvre ?")
            (choices "Au centre de l'Θcran" "Sous la souris" "En haut α gauche")
            (help WindowPos)
        )
)
    (if (= Icon 0)
        (tooltype
            (settooltype "WINDOWPOSITION" "CENTERSCREEN")
            (dest DestName)
        )
    )

    (if (= Icon 1)
        (tooltype
            (settooltype "WINDOWPOSITION" "CENTERMOUSE")
            (dest DestName)
        )
    )

    (if (= Icon 2)
        (tooltype
            (settooltype "WINDOWPOSITION" "TOPLEFT")
            (dest DestName)
        )
    )

(message "Regarder la documation pour toutes les options")



(set @default-dest Path.dest )
        (exit)